210 GOSUB 2120: PRINT SPC( 37 - LEN(K$(Q)))"Escape: "K$(Q): VTAB 9: PRINT V$(0);: IF CG THEN PRINT " (If there is no additional input before Return is pressed,": PRINT "the main directory will be cataloged.)";
1960 POKE 216,0: CALL 848: HOME :V$(0) = K$(K): GOSUB 950: POP : GOTO 1900
1970 PRINT : PRINT : PRINT :DV = 16 * FN H1( PEEK(LD)): VTAB 8: PRINT SPC( 10)"You may replace the program disk with an Appleworks data disk": PRINT SPC( 14)"or/and put data disks in any other drives available."
1990 PRINT : PRINT SPC( 21)"Current slot = "SL%". Current drive = "DR%".": GOSUB 920: HOME :SS% = SL%:DD% = DR%:DV% = DV
2000 REM MAIN MENU
2010 K = 3:T = 0:Q = 1: GOSUB 680: IF C >1 AND NF = 0 THEN V$(0) = "You must " +K$(2) +" First": GOSUB 950: GOTO 2010
2020 POKE EE,0: HOME : ON Q GOSUB 1880,1340: GOTO 2010
2030 DATA 104,168,104,166,223,154,72,152,72,96
2040 DATA End Program,Main Menu,Select a File,Analyze the File
2050 DATA Return to Main Menu,"Analyze:",A Column,A Row,A Block,Entire File
2060 DATA "Minimum","Maximum"
2070 DATA No disks in active devices,That is not a spread sheet file,That is not a sapling file
2080 DATA Press Return to Continue,Input error
2090 DATA Return to Analyze Menu,"Analyze:",By Rows,By Columns
2100 DATA Select File Menu,Enter pathname for file,Change slot/drive,Catalog disk,"Catalog:",Main directory,By pathname,Return to Select file Menu
2110 DATA I/O error,Path to file's subdirectory is bad,File not found in specified directory,Select slot/drive,No disk in active drive,Pathname not found